home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / classics.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-11-30  |  8.5 KB  |  201 lines
  1. 100  KEY OFF:CLS:COLOR 4,0,1:LOCATE 5,20:PRINT "CLASSICAL SONGS"
  2. 110  LOCATE 10,20:PRINT "PROGRAMED BY":LOCATE 12,20:PRINT "RYAN KUBLY"
  3. 120  LOCATE 24,10:PRINT "PRESS ANY LETTER KEY TO CONTINUE"
  4. 125  A$=INKEY$:IF A$="" THEN 125
  5. 130  CLS:LOCATE 3,20
  6. 135  PRINT "PLEASE PRESS THE KEY CORRESPONDING TO THE SONG"
  7. 140  LOCATE 5,20
  8. 150  PRINT "YOU WOULD LIKE TO HEAR.  THEN PRESS THE ENTER KEY.":LOCATE 10,20
  9. 160  PRINT "1 - MINUET IN G MAJOR":LOCATE 11,20
  10. 170  PRINT "2 - MINUET IN G MINOR":LOCATE 12,20
  11. 180  PRINT "3 - MINUET IN G":LOCATE 13,20
  12. 190  PRINT "4 - WILLIAM TELL OVERTURE":LOCATE 14,20
  13. 200  PRINT "5 - CAN CAN":LOCATE 15,20
  14. 210  PRINT "6 - POMP AND CIRCUMSTANCE":LOCATE 16,20
  15. 220  PRINT "7 - POLOVETZIAN DANCE":LOCATE 17,20
  16. 230  PRINT "8 - SONATINA IN G":LOCATE 18,20
  17. 240  PRINT "9 - RETURN TO D.O.S.":LOCATE 20,20
  18. 400  INPUT X
  19. 410  IF X=1 THEN 1000
  20. 420  IF X=2 THEN 1248
  21. 430  IF X=3 THEN 1450
  22. 440  IF X=4 THEN 1600
  23. 450  IF X=5 THEN 1750
  24. 460  IF X=6 THEN 2020
  25. 470  IF X=7 THEN 2150
  26. 480  IF X=8 THEN 2300
  27. 490  IF X=9 THEN 600
  28. 600  CLS:SYSTEM
  29. 1000  KEY OFF
  30. 1010  CLS
  31. 1020  LOCATE 10,20
  32. 1030  PRINT "MINUET IN G MAJOR"
  33. 1040  LOCATE 12,20
  34. 1050  PRINT "      BY       "
  35. 1060  LOCATE 14,20
  36. 1070  PRINT "JOHANN SEBASTIAN BACH"
  37. 1080  PLAY "T120O4L4MLDL8O3GABO4C L4DMSO3GG MLO4EL8CDEF# L4GMSO3GG"
  38. 1090  PLAY "O4CL8DCO3BA L4BO4L8CO3BAG L4F#L8GABG L4BL2A"
  39. 1110  PLAY "T120O4L4DL8O3GABO4C L4DMSO3GG MLO4EL8CDEF# L4GMSO3GG"
  40. 1120  PLAY "O4CL8DCO3BA L4BO4L8CO3BAG L4AL8BAGF# L1G"
  41. 1130  PLAY "T120O4L4MLDL8O3GABO4C L4DMSO3GG MLO4EL8CDEF# L4GMSO3GG"
  42. 1140  PLAY "O4CL8DCO3BA L4BO4L8CO3BAG L4F#L8GABG L4BL2A"
  43. 1150  PLAY "T120O4L4DL8O3GABO4C L4DMSO3GG MLO4EL8CDEF# L4GMSO3GG"
  44. 1170  PLAY "O4CL8DCO3BA L4BO4L8CO3BAG L4AL8BAGF# L1G"
  45. 1180  PLAY "O4L4BL8GABG L4AL8DEF#D L4GL8EF#GD L4C#L8O3BO4C#L4O3A"
  46. 1190  PLAY "L8ABO4C#DEF# L4MSGF#E MLF#O3MSAO4C# MLL1D"
  47. 1200  PLAY "L4DO3L8GF#L4G O4EL8O3GF#L4G O4MSDCO3B MLL8AGF#GL4A"
  48. 1210  PLAY "L8DEF#GAB MSL4O4CO3BA MLL8BO4DO3MSL4GF# MLL1G"
  49. 1220  PLAY "O4L4BL8GABG L4AL8DEF#D L4GL8EF#GD L4C#L8O3BO4C#L4O3A"
  50. 1230  PLAY "L8ABO4C#DEF# L4MSGF#E MLF#O3MSAO4C# MLL1D"
  51. 1240  PLAY "L4DO3L8GF#L4G O4EL8O3GF#L4G O4MSDCO3B MLL8AGF#GL4A"
  52. 1244  PLAY "L8DEF#GAB MSL4O4CO3BA MLL8BO4DO3MSL4GF# MLL1G"
  53. 1246  GOTO 100
  54. 1248  KEY OFF:CLS:LOCATE 10,20
  55. 1250  PRINT "MINUET IN G MINOR"
  56. 1252  LOCATE 12,20
  57. 1254  PRINT "       BY        "
  58. 1260  LOCATE 14,20
  59. 1270  PRINT "JOHANN SEBASTIAN BACH"
  60. 1280  PLAY "T120O4L4MLB-AG AMSDD MLGL8O3GAB-O4C L4DO3L8DCO2B-A"
  61. 1290  PLAY "O4L4E-L8FE-DC L4DL8E-DCO3B- O4L4CL8DCO3B-O4C L4O3AL8DCO2B-A"
  62. 1300  PLAY "T120O4L4B-AG AMSDD MLGL8O3GAB-O4C L4DO3L8DCO2BA"
  63. 1310  PLAY "O4L4FL8GFE-D L4E-L8FE-DC L4DMSGC MLO3L1B-"
  64. 1320  PLAY "T120O4L4MLB-AG AMSDD MLGL8O3GAB-O4C L4DO3L8DCO2B-A"
  65. 1330  PLAY "O4L4E-L8FE-DC L4DL8E-DCO3B- O4L4CL8DCO3B-O4C L4O3AL8DCO2B-A"
  66. 1340  PLAY "T120O4L4B-AG AMSDD MLGL8O3GAB-O4C L4DO3L8DCO2BA"
  67. 1350  PLAY "O4L4FL8GFE-D L4E-L8FE-DC L4DMSGC MLO3L1B-"
  68. 1360  PLAY "O4L4DO3L8B-O4CDE L4MSFGA MLB-L8GAB-G L4AL8GAL4F"
  69. 1370  PLAY "L8O3FGAB-O4CD L4MSE-DC MLFMSO3B-A MLL4B-O3DC"
  70. 1380  PLAY "GL8O4DCL4D O3GO4L8E-DL4E- O3L8GO4DO3F#O4CO3GB- L4AO2L8AGF#E"
  71. 1390  PLAY "T120L8O3DEF#GAB- MSL4O4CO3B-A MLL8B-L16O4CDL4MSO3GF# MLL1G"
  72. 1400  PLAY "O4L4DO3L8B-O4CDE L4MSFGA MLB-L8GAB-G L4AL8GAL4F"
  73. 1410  PLAY "L8O3FGAB-O4CD L4MSE-DC MLFMSO3B-A MLL4B-O3DC"
  74. 1420  PLAY "GL8O4DCL4D O3GO4L8E-DL4E- O3L8GO4DO3F#O4CO3GB- L4AO2L8AGF#E"
  75. 1430  PLAY "T120L8O3DEF#GAB- MSL4O4CO3B-A MLL8B-L16O4CDL4MSO3GF# MLL1G"
  76. 1440  GOTO 100
  77. 1450  KEY OFF:CLS:LOCATE 10,20
  78. 1460  PRINT "MINUET IN G"
  79. 1470  LOCATE 12,20
  80. 1480  PRINT "    BY     "
  81. 1490  LOCATE 14,20
  82. 1500  PRINT "FRANZ JOSEPH HAYDN"
  83. 1510  PLAY "T120O3L4MLD GP29GP29GP29 GL8DGBG L4AP29AP29AP29 AL8DAO4CO3A"
  84. 1520  PLAY "L4BO4DP29DP29 L8DGF#EL4DP29 DCO3BP29 BA"
  85. 1530  PLAY "T120O3L4MLD GP29GP29GP29 GL8DGBG L4AP29AP29AP29 AL8DAO4CO3A"
  86. 1540  PLAY "L4BO4DP29DP29 L8DGF#EL4DP29 DCO3BP29 BA"
  87. 1550  PLAY "O3DP29 O4DP29DP29DP29 DO3L8EG#BO4D L4CP29CP29CP29 CO3L8DF#AO4C"
  88. 1560  PLAY "L4O3BO4DP29DP29 L8DGF#EL4D L12EDCL4O3BA L2G"
  89. 1570  PLAY "L4O3DP29 O4DP29DP29DP29 DO3L8EG#BO4D L4CP29CP29CP29 CO3L8DF#AO4C"
  90. 1580  PLAY "L4O3BO4DP29DP29 L8DGF#EL4D L12EDCL4O3BA L2G"
  91. 1590  GOTO 100
  92. 1600  KEY OFF:CLS:LOCATE 10,20
  93. 1610  PRINT "WILLIAM TELL OVERTURE"
  94. 1620  LOCATE 12,20
  95. 1630  PRINT "         BY          "
  96. 1640  LOCATE 14,20
  97. 1650  PRINT " GIOACCHINO ROSSINI"
  98. 1660  PLAY "T168O3L8MSDD L4DL8DDL4DL8DD L4GABL8DD L4DL8DDL4DMLB MSAF#DL8DD"
  99. 1670  PLAY "L4DL8DDL4DL8DD L4GABL8MLGB L2O4DP30L8DCO3BA MSL4GBGO4L8DD"
  100. 1680  PLAY "O4L4DL8DDL4DL8DD L4GABL8DD L4DL8DDL4DMLB MSAF#DL8DD"
  101. 1690  PLAY "O4L4DL8DDL4DL8DD L4GABL8MLGB L2O5DP30L8DCO4BA MSL4GBGO5L8O3BB"
  102. 1700  PLAY "L4BL8BBL4BL8BB L4BO4EO3BO4E O3BO4EO3BA GF#EL8BB"
  103. 1710  PLAY "L4BL8BBL4BL8BB L4BO4EO3BO4E O3BO4EDC# L2MLDL8MSP30DD"
  104. 1720  PLAY "O4L4DL8DDL4DL8DD L4GABL8DD L4DL8DDL4DMLB MSAF#DL8DD"
  105. 1730  PLAY "O4L4DL8DDL4DL8DD L4GABL8MLGB L2O5DP30L8DCO4BA MSL4GBGO5L8"
  106. 1740  GOTO 100
  107. 1750  KEY OFF:CLS:LOCATE 10,20
  108. 1760  PRINT "    CAN CAN"
  109. 1770  LOCATE 12,20
  110. 1780  PRINT "      BY   "
  111. 1790  LOCATE 14,20
  112. 1800  PRINT "JACQUES OFFENBACH"
  113. 1810  PLAY "T208O4L32F#L2GO3L32F#L2GL32F#L2GL32F#L2GL4GO4DP30DEDCP30CEFAO5CO4A"
  114. 1820  PLAY "AGP30L2G L4AO3BP30BO4A GCP30CE L32FL4EDED L32FL4EDED"
  115. 1830  PLAY "O3L4GO4DP30DE DCP30CE FAO5CO4A P30AGP30L2G L4AO3BP30BO4A"
  116. 1840  PLAY "GCP30CE EDED DCP30L2C EC O3AG"
  117. 1850  PLAY "L4O4GDEF EDL2C EC O3AG L4F#GAB"
  118. 1860  PLAY "O4DCP30L2C ECO3AG L4O4 GDEF EDL2C"
  119. 1870  PLAY "ECO3AG L4F#GAB O4CO3GBG O4CO3GBG O4CO3GBG"
  120. 1880  PLAY "O4CO3GBG O4L3CP30L8CL3P30CL8P30C P30L3CL8P30CL3P30CL8P30C"
  121. 1890  PLAY "O3L2P30CL8P30CL2P30CL8P30C L2P30CL8P30CL2P30CL8P30C"
  122. 1900  PLAY "T208"
  123. 1910  PLAY "L1F L4GB-AG L2O4CP30C P30L4CDO3AB- L2GP30G"
  124. 1920  PLAY "L4GB-AG FO4FED CO3B-AG L1F L4GB-AG"
  125. 1930  PLAY "L2O4CP30C P30L4CDO3AB- L2GP30G L4GB-AG FO4CO3GA"
  126. 1940  PLAY "L2FC"
  127. 1950  PLAY "L1F L4GB-AG L2O4CP30C P30L4CDO3AB- L2GP30G"
  128. 1960  PLAY "L4GB-AG FO4FED CO3B-AG L1F L4GB-AG"
  129. 1970  PLAY "L2O4CP30C P30L4CDO3AB- L2GP30G L4GB-AG FO4CO3GA"
  130. 1980  PLAY "L2FO4F"
  131. 1990  PLAY "L4GO4DP30DEDCP30CEFAO5CO4A"
  132. 2000  PLAY "AGP30L2G L4AO3BP30BO4A GCP30CE L4EDED L4DCL2P30C"
  133. 2010  GOTO 100
  134. 2020  KEY OFF:CLS:LOCATE 10,20
  135. 2030  PRINT "POMP AND CIRCUMSTANCE"
  136. 2040  LOCATE 12,20
  137. 2050  PRINT "        BY           "
  138. 2060  LOCATE 14,20
  139. 2070  PRINT "    EDWARD ELGAR     "
  140. 2080  PLAY "T120O3L2MLGL8F#GL4A L2ED CL8O2BO3CL4D L1O2A"
  141. 2090  PLAY "L2BO3L8C#L4DL8E L2AD GP30L8GL4F#L8E L2D"
  142. 2110  PLAY "O3L2MLGL8F#GL4A L2ED CL8O2BO3CL4D L1O2A"
  143. 2120  PLAY "L2BO3L8C#L4DL8E L2AD O4CP30L8CL4O3BL8A L1B"
  144. 2130  PLAY "L2EL8F#L4GL8A L2DG O4CP30L8CL4O3BL8A L2GO4G"
  145. 2140  GOTO 100
  146. 2150  KEY OFF:CLS:LOCATE 10,20
  147. 2160  PRINT "POLOVETZIAN DANCE"
  148. 2170  LOCATE 12,20
  149. 2180  PRINT "       BY        "
  150. 2190  LOCATE 14,20
  151. 2200  PRINT "ALEXANDER BORODIN"
  152. 2210  PLAY "T120O3L4GP30GO4L2D P30L4DL8CDO3L4B-L8AG AB-O4L1C L4DO3AL8GF"
  153. 2220  PLAY "L4DP30DL2G L4GAGL8FE FEL1D L4EFA"
  154. 2230  PLAY "T120O3L4GP30GO4L2D P30L4DL8CDO3L4B-L8AG AB-O4L1C L4DO3AL8GF"
  155. 2240  PLAY "L4DP30DL2G L4GAGL8FE L1F L4FO2EFA"
  156. 2250  PLAY "GP30GL2B- L4B-O3CO2B-L8AG AB-O3L1C L4D-CO2A"
  157. 2260  PLAY "B-P30B-O3L2F L4FGFL8E-D- L1C L4CL8AB-O4L4CL8O3B-A"
  158. 2270  PLAY "T120O3L4GP30GO4L2D P30L4DL8CDO3L4B-L8AG AB-O4L1C L4DO3AL8GF"
  159. 2280  PLAY "L4DP30DL2G L4GAGL8FE L1F L4FL2F"
  160. 2290  GOTO 100
  161. 2300  CLS:KEY OFF:LOCATE 10,20:PRINT "SONATINA IN G":LOCATE 12,24
  162. 2310  PRINT "BY":LOCATE 14,18:PRINT "LUDWIG VAN BEETHOVEN"
  163. 2320  PLAY "T120MLO3L2GL32BL8AGAB L4GL8O4GDP40DO3BP40BG O4L2CP40L32CO3L8"
  164. 2330  PLAY "BABO4C O3L4AL8O4DEDO3BO4CO3A L2GL32BL8AGAB L2O4CL32F#L8EDEF#"
  165. 2340  PLAY "GDECO3BO4DCO3A L2AL4G P40L2AO4L8CO3BAB O4DCAGF#EDC L2O3BO4L8"
  166. 2350  PLAY "DCO3BO4C EDBAGF#ED L4CL8AGF#EDCO3 BO4GF#EDCO3B L2AL8DEF#GAB"
  167. 2360  PLAY "L4O4CL8O3BO4CDCO3AB"
  168. 2370  PLAY "L2GL32BL8AGAB L4GL8O4GDP40DO3BP40BG O4L2CP40L32CO3L8"
  169. 2380  PLAY "BABO4C O3L4AL8O4DEDO3BO4CO3A L2GL32BL8AGAB L2O4CL32F#L8EDEF#"
  170. 2390  PLAY "GDECO3BO4DCO3A L2AL4G P40L2AO4L8CO3BAB O4DCAGF#EDC L2O3BO4L8"
  171. 2400  PLAY "DCO3BO4C EDBAGF#ED L4CL8AGF#EDCO3 BO4GF#EDCO3B L2AL8DEF#GAB"
  172. 2410  PLAY "L4O4CL8O3BO4CDCO3AB"
  173. 2420  PLAY "L2GL32BL8AGAB L4GL8O4GDP40DO3BP40BG O4L2CP40L32CO3L8"
  174. 2430  PLAY "BABO4C O3L4AL8O4DEDO3BO4CO3A L2GL32BL8AGAB L2O4CL32F#L8EDEF#"
  175. 2440  PLAY "GDECO3BO4DCO3A L2AL4G"
  176. 2450  PLAY "L8O2DAO3CO2ADAO3CO2A DGBGDGBG DF#AF#DF#AF#"
  177. 2460  PLAY "DGBGDGBG DAO3CO2ADAO3CO2A DGBGDBG DF#AF#DAO3CO2A"
  178. 2470  PLAY "L4BP4O1GP40GP40 GO2GDO1B L1G"
  179. 2480  PLAY "T150L4O3BO4CD O3L2GP40L4GL32BL4AGA L2BL4GBO4CD L2O3GP40L4GL32AL4GF#G        L2AP4L4BO4CD L2O3GP40L4GP40GAB O4L2CL4EGEC L2O3BL4O4DCO3AO4DO3L2GP8"
  180. 2500  PLAY "L4O3BO4CD O3L2GP40L4GL32BL4AGA L2BL4GBO4CD L2O3GP40L4GL32AL4GF#G        L2AP4L4BO4CD L2O3GP40L4GP40GAB O4L2CL4EGEC L2O3BL4O4DCO3AO4DO3L2GP4"
  181. 2510  PLAY "L32AL4GF#G MSABO4C#DEF# MLL2AL4GF#ED C#O3BAO4ECO3G"
  182. 2520  PLAY "L2F#L4AO4DMSP40DP40 MLL2O3BL4GO4MSDP40DP40D MLO3L2BL4G"
  183. 2530  PLAY "O4MSDP40DP40D MLO3BGDF#GD L2DP4L4F#ED L2AP4L4AGF#"
  184. 2540  PLAY "O4L2CP4L4CO3BA O4L2MSEMLL4DCO3BA GF#EDEF# GAP60A#BO4CD"
  185. 2550  PLAY "L2O3GP40L4GL32BL4AGA L2BL4GBO4CD L2O3GL4P40GL32AL4GF#G"
  186. 2560  PLAY "L2AL4A L4BO4CD L2O3GL4P40GP40GAB O4L2CL4EGEC"
  187. 2570  PLAY "L2O3BL4O4DCO3AO4D O3L2GP4"
  188. 2580  PLAY "L32AL4GF#G MSABO4C#DEF# MLL2AL4GF#ED C#O3BAO4ECO3G"
  189. 2590  PLAY "L2F#L4AO4DMSP40DP40 MLL2O3BL4GO4MSDP40DP40D MLO3L2BL4G"
  190. 2600  PLAY "O4MSDP40DP40D MLO3BGDF#GD L2DP4L4F#ED L2AP4L4AGF#"
  191. 2610  PLAY "O4L2CP4L4CO3BA O4L2MSEMLL4DCO3BA GF#EDEF# GAP60A#BO4CD"
  192. 2620  PLAY "L2O3GP40L4GL32BL4AGA L2BL4GBO4CD L2O3GL4P40GL32AL4GF#G"
  193. 2630  PLAY "L2AL4A L4BO4CD L2O3GL4P40GP40GAB O4L2CL4EGEC"
  194. 2640  PLAY "L2O3BL4O4DCO3AO4D O3L2GP4"
  195. 2650  PLAY "L4BO4CD L2O3AL4P40AL32P40ABL4O4CL8CO3BL4BA"
  196. 2660  PLAY "L2GP40L4GL32AL4GF#G EF#GABA"
  197. 2670  PLAY "L2AL4DBO4CDO3 L2AP40L4AP40L32ABO4L4CO3BA"
  198. 2680  PLAY "L4GL2GO4F#L4E L2DL4O3BL2AO4L4D O3L4BL2BO4F#L4E"
  199. 2690  PLAY "L2DL4O3BL4O4CO3AO4D O3L2GP4O4F#P4 O2BP4"
  200. 2700  GOTO 130
  201.